home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)g1.d64 / cont.ldr.ml (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  41 lines
  1. 100 REM **************************
  2. 110 REM *                        *
  3. 120 REM *  HIRES PICTURE LOADER  *
  4. 130 REM *    FOR COMMODORE 64    *
  5. 140 REM *                        *
  6. 150 REM *                        *
  7. 160 REM *    DON WHITE           *
  8. 170 REM *    47 ARIEL COURT      *
  9. 180 REM *    NEPEAN, ONTARIO     *
  10. 190 REM *    K2H 8J1             *
  11. 200 REM *                        *
  12. 210 REM *    613-829-2082        *
  13. 220 REM *                        *
  14. 230 REM **************************
  15. 240 REM
  16. 250 PRINT"[147]
  17. 260 [139]CT[177]0[167]340
  18. 270 [156]:[140]
  19. 280 CT[178]0:[143] INITIALIZE COUNTER
  20. 290 NN[178]20:[143] # PICTURES TO LOAD
  21. 300 V[178]53248:[151]V[170]17,59:[151]V[170]24,25:[143] HIGH RES SCREEN
  22. 310 :
  23. 320 [134]PI$(NN),CL(NN):[129]I[178]1[164]NN:[135] PI$(I),CL(I):[130]:[137]400
  24. 330 :
  25. 340 [153]"LOAD"
  26. 350 [161]ZZ$:[139]ZZ$[178]"S"[167][151]V[170]17,27:[151]V[170]24,21:[153]"LOAD":[128]
  27. 360 [151]53280,[181](16[172][187](1))
  28. 370 [151]828,CL(CT)
  29. 380 [158]3185:
  30. 390 [129]I[178]1[164]2000:[130]:[153]"LOAD"
  31. 400 [153]"LOAD":CT[178]CT[170]1:[139]CT[177]NN[167]270
  32. 410 [147] PI$(CT),8,1:[143] LOAD PICTURE ON HIRES SCREEN
  33. 420 :
  34. 430 [143] NAMES & COLOURS OF PICTURES
  35. 440 :
  36. 450 [131] SPIRAL.1,7,SUE,28,KAREN,28,SNOOPY,12,ALBERT,235
  37. 460 [131] DOLLAR,80,DIP,16,SNAIL,7,DES.1,5,7-3HILL,6
  38. 470 [131] MUSIC,2,MAP,16,DIANE,48,WILLY,112,RACCOON,144
  39. 480 [131] SINCOS1,3,WATCH,16,WINSTON,28,MICROMETER,139,NUDE,28
  40. 490 [128]
  41.